home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1470 / 3dforms.frm (.txt) < prev    next >
Visual Basic Form  |  1996-06-08  |  5KB  |  174 lines
  1. VERSION 4.00
  2. Begin VB.Form frm3DFXForms 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "VBMax 3D Effects Demo - Forms"
  5.    ClientHeight    =   4605
  6.    ClientLeft      =   1110
  7.    ClientTop       =   1710
  8.    ClientWidth     =   5505
  9.    ControlBox      =   0   'False
  10.    Height          =   5010
  11.    Icon            =   "3DForms.frx":0000
  12.    Left            =   1050
  13.    LinkTopic       =   "Form1"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   4605
  18.    ScaleWidth      =   5505
  19.    ShowInTaskbar   =   0   'False
  20.    Top             =   1365
  21.    Width           =   5625
  22.    Begin VB.CommandButton cmdClose 
  23.       Cancel          =   -1  'True
  24.       Caption         =   "Close"
  25.       Height          =   360
  26.       Left            =   3360
  27.       TabIndex        =   10
  28.       Top             =   3420
  29.       Width           =   900
  30.    End
  31.    Begin VB.Frame Frame2 
  32.       Caption         =   "Style"
  33.       Height          =   1635
  34.       Left            =   3000
  35.       TabIndex        =   6
  36.       Top             =   1320
  37.       Width           =   1635
  38.       Begin VB.OptionButton Option1 
  39.          Caption         =   "&No effects"
  40.          Height          =   375
  41.          Left            =   240
  42.          TabIndex        =   9
  43.          Top             =   1080
  44.          Width           =   1215
  45.       End
  46.       Begin VB.OptionButton optRecessed 
  47.          Caption         =   "R&ecessed"
  48.          Height          =   375
  49.          Left            =   240
  50.          TabIndex        =   8
  51.          Top             =   720
  52.          Value           =   -1  'True
  53.          Width           =   1215
  54.       End
  55.       Begin VB.OptionButton optRaised 
  56.          Caption         =   "&Raised"
  57.          Height          =   375
  58.          Left            =   240
  59.          TabIndex        =   7
  60.          Top             =   360
  61.          Width           =   1095
  62.       End
  63.    End
  64.    Begin VB.Frame Frame1 
  65.       Caption         =   "Size"
  66.       Height          =   2475
  67.       Left            =   900
  68.       TabIndex        =   1
  69.       Top             =   1320
  70.       Width           =   1815
  71.       Begin VB.VScrollBar sliWidth 
  72.          Height          =   1755
  73.          LargeChange     =   5
  74.          Left            =   300
  75.          Max             =   20
  76.          TabIndex        =   3
  77.          Top             =   600
  78.          Value           =   15
  79.          Width           =   255
  80.       End
  81.       Begin VB.VScrollBar sliDepth 
  82.          Height          =   1755
  83.          LargeChange     =   5
  84.          Left            =   1170
  85.          Max             =   20
  86.          TabIndex        =   5
  87.          Top             =   600
  88.          Value           =   2
  89.          Width           =   255
  90.       End
  91.       Begin VB.Label lblDepth 
  92.          AutoSize        =   -1  'True
  93.          Caption         =   "&Depth:"
  94.          Height          =   195
  95.          Left            =   1080
  96.          TabIndex        =   4
  97.          Top             =   300
  98.          Width           =   480
  99.       End
  100.       Begin VB.Label lblWidth 
  101.          AutoSize        =   -1  'True
  102.          Caption         =   "&Width:"
  103.          Height          =   195
  104.          Left            =   210
  105.          TabIndex        =   2
  106.          Top             =   300
  107.          Width           =   465
  108.       End
  109.    End
  110.    Begin VB.Label lblTitle 
  111.       AutoSize        =   -1  'True
  112.       Caption         =   "Form Border Effects"
  113.       BeginProperty Font 
  114.          name            =   "MS Sans Serif"
  115.          charset         =   0
  116.          weight          =   700
  117.          size            =   18
  118.          underline       =   -1  'True
  119.          italic          =   0   'False
  120.          strikethrough   =   0   'False
  121.       EndProperty
  122.       ForeColor       =   &H00000000&
  123.       Height          =   435
  124.       Left            =   1020
  125.       TabIndex        =   0
  126.       Top             =   660
  127.       Width           =   3525
  128.    End
  129. Attribute VB_Name = "frm3DFXForms"
  130. Attribute VB_Creatable = False
  131. Attribute VB_Exposed = False
  132. Option Explicit
  133. Dim mo3D As New C3D
  134. Private Sub cmdClose_Click()
  135.     Unload Me
  136. End Sub
  137. Private Sub Form_Load()
  138.     CenterForm Me
  139.     With mo3D
  140.         .Style = gnRECESSED
  141.         .Depth = sliDepth.Value
  142.         .Width = sliWidth.Value
  143.     End With
  144.     DrawBorder
  145. End Sub
  146. Private Sub Form_Unload(Cancel As Integer)
  147.     Set mo3D = Nothing
  148.     Set frm3DFXForms = Nothing
  149. End Sub
  150. Private Sub Option1_Click()
  151.     mo3D.Style = gnNORMAL
  152.     Cls
  153. End Sub
  154. Private Sub optRaised_Click()
  155.     mo3D.Style = gnRAISED
  156.     DrawBorder
  157. End Sub
  158. Private Sub optRecessed_Click()
  159.     mo3D.Style = gnRECESSED
  160.     DrawBorder
  161. End Sub
  162. Private Sub sliDepth_Change()
  163.     mo3D.Depth = sliDepth.Value
  164.     DrawBorder
  165. End Sub
  166. Private Sub sliWidth_Change()
  167.     mo3D.Width = sliWidth.Value
  168.     DrawBorder
  169. End Sub
  170. Sub DrawBorder()
  171.     Cls
  172.     If mo3D.Style <> gnNORMAL Then mo3D.FormBorder Me
  173. End Sub
  174.